home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 12 C64 Telecom / QWK64.SDA / PRINTER (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  248 b   |  12 lines
  1. 10 PRINT"[210]EFS OR [196]OCS? [164][157]";
  2. 20 GETA$:IFA$<>"R"ANDA$<>"D"THEN20
  3. 30 T$="DOX":IFA$="R"THENT$="REF"
  4. 40 PRINTT$
  5. 50 INPUT "DISK DEVICE #";D
  6. 60 INPUT "PRINTER DEVICE #";P
  7. 70 OPEN2,D,2,"QWKIE "+T$+",S,R"
  8. 80 OPEN4,P,7
  9. 90 FORI=0TO1:GET#2,A$ :REM RUSS PRATER
  10. 100 I=ST:PRINT#4,A$;:NEXT
  11. 110 CLOSE4:CLOSE2
  12.